inherited frmChargeAbonent: TfrmChargeAbonent
  Left = 555
  Top = 443
  VertScrollBar.Range = 0
  AutoSize = True
  BorderStyle = bsDialog
  Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1072#1073#1086#1085#1077#1085#1090#1072#1084
  ClientHeight = 174
  ClientWidth = 503
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 145
    Width = 503
    Height = 29
    Align = alTop
    TabOrder = 1
    inherited BitBtn1: TBitBtn
      Left = 5
      Top = 3
      Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1089#1087#1080#1089#1086#1082' '#1086#1096#1080#1073#1086#1082
      Action = nil
      Caption = #1054#1096#1080#1073#1082#1080
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Visible = False
    end
    inherited BitBtn2: TBitBtn
      Left = 405
      Top = 3
      ParentFont = False
    end
    object BitBtn3: TBitBtn
      Left = 204
      Top = 3
      Width = 97
      Height = 25
      Action = aCalcCharge
      Anchors = [akTop, akRight]
      Caption = #1056#1072#1089#1095#1077#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD2DF
        F8F4F4F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC9C9CCDADADD0392FB069CFE969CBDFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F12230A1000DEA9698B22CB7
        FA56FFFF26B1FEF3F3F5F8F5F585724D8C8B65988B69988B68928A668D8A6494
        91622C2C810004FF0002FF605F6A3385F36EB4F75BAEFCCFDEF8F6E7E466E4A4
        71FFC491FFCD90FFCE7EFFC772FFC376FFC00000C00D15FF1319F836758E58B2
        A741857DBFBEC1FFFFFFF5E7E46ADB9E74FABF96FBC895FBC882F8C176F8BD7C
        FFBD0C11B83F46FF4C52FF4146EE3639F01E27E9B2B2BAFFFFFFF5E7E470DEA5
        7AFAC19BFBCB9AFBCB87F8C37BF7BF80FFC13F669E6061FB8588FF888BFF7A7E
        FF2326A2DCD9D9FFFFFFF6E8E62FAD5288FFD0A1FBCFA0FBCE8DFAC984FCC981
        F9C27EFFC13C619C4B50BD5C60C8374AA874A982DBD7D7FFFFFFF4E9E6C19054
        0FC25BB3FFE1A8FDD671F0B52EB14D84FECC85F9C687FFC697F8C996ECC7A7FF
        D677C98EDAD7D7FFFFFFF2E9E6F99A71CCA5662DC66BA0FBD2369E34FFAA7C34
        AF4C8AFED187F8C79BFBCFABFDD5A5FFD678C68EDAD7D7FFFFFFF2E9E6EF9D72
        FFB58DBFA8693B9F39FFB28EFFB38AF2AD7E23B04990FFD5A4FDD8B3FEDDA9FF
        DA7AC68FDAD7D7FFFFFFF2E8E5EFAF8EFFC8AAFFC7ABFFC7ADFFC7A9FFC6A9FF
        C7ABEEBF9A14B44A7BD49629A83FBDFFE97DC692DAD7D7FFFFFFF2E8E4EFC1AC
        FFDCCAFFDAC7FFDAC7FFDAC7FFDAC7FFDAC7FFDCCBE0D1B0A2C087FED8C54BB5
        5B81CA9ADAD7D7FFFFFFF2E6E3F3DBD0FFFAF4FFF8F2FFF8F2FFF8F2FFF8F2FF
        F8F2FFF8F2FFF9F4FFFAF6FFF9F5F5F5E85C9643D9D6D6FFFFFFFBFAF9C99B8B
        D3AB9CD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD6AC
        9ED3A397FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object BitBtn4: TBitBtn
      Left = 304
      Top = 3
      Width = 98
      Height = 25
      Action = aStop
      Caption = #1057#1090#1086#1087
      TabOrder = 3
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF007171FE003131FE001212FF001212FF003131
        FE007979FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF007979FF001212FF004545FE006666FE007171FE007171FE006666
        FE004141FE001212FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF005959FD003131FE007171FE006666FE007171FE006666FE006666FE006666
        FE007171FE006666FE002D2DFE006666FE00FF00FF00FF00FF00FF00FF00FF00
        FF003131FE006666FE005E5EF9005E5EF9005E5EF9005E5EF9005E5EF9005E5E
        F9005E5EF9005E5EF9006666FE002D2DFE00FF00FF00FF00FF00FF00FF001919
        FF006666FE005252F5005252F500A8A8FB00D1D1FC005E5EF9005252F5006363
        F700D8D8FC009393FA005252F5005959FD001919FF00FF00FF00FF00FF004141
        FE004D4DF5004D4DF5005252F500D8D8FC00FEFEFE00C3C3FC006363F700E1E1
        FD00FEFEFE00C3C3FC004D4DF5005252F5003A3AFE00FF00FF004545FE005959
        FD004545F4004545F4004D4DF5005252F500E1E1FD00FEFEFE00FEFEFE00FEFE
        FE00B9B9FA004D4DF5004545F4004545F4004545FE006666FE003131FE005959
        FD003C3CF2003C3CF2003C3CF2003C3CF2007C7CF600FEFEFE00FEFEFE00D1D1
        FC003C3CF2003737F1003C3CF2003737F1005252F5003A3AFE002D2DFE005E5E
        F9003737F1003737F1002F2FED006D6DF400F5F5FE00FEFEFE00F5F5FE00FEFE
        FE008484F6003737F1002F2FED003737F1004545FE004141FE004545FE005959
        FD002929EE002929EE006363F700FEFEFE00FEFEFE007979F4005E5EF900F5F5
        FE00FEFEFE006D6DF4002929EE002929EE004545FE006666FE00FF00FF003A3A
        FE003737F1002929EE002F2FED00CFCFFB006363F7001C1CEB001C1CEB006262
        F100EAEAFD004F4FF0001C1CEB003737F1003131FE00FF00FF00FF00FF001212
        FF005959FD001C1CEB001616EA001616EA001616EA001616EA001818EA001616
        EA001C1CEB001616EA001C1CEB005959FD001919FF00FF00FF00FF00FF00FF00
        FF002A2AFE005555F7001616EA000E0EE8000E0EE8000E0EE8000E0EE8001616
        EA000E0EE8001C1CEB005555F7001919FF00FF00FF00FF00FF00FF00FF00FF00
        FF005959FD002A2AFE005959FD003737F1000E0EE8000606E6000606E6000E0E
        E8003737F1005959FD002A2AFE006666FE00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF007979FF000B0BFF003131FE005555F7005959FD005959FD005555
        F7003131FE000B0BFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF007171FE002D2DFE000B0BFF001212FF003131
        FE007979FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
  end
  inherited ToolBar1: TToolBar
    Top = 174
    Width = 503
    Height = 0
    TabOrder = 2
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 0
    Width = 503
    Height = 91
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object pan22: TGroupBox
      Left = 0
      Top = 0
      Width = 222
      Height = 91
      Align = alLeft
      Caption = ' '#1055#1077#1088#1080#1086#1076' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label13: TLabel
        Left = 12
        Top = 27
        Width = 37
        Height = 13
        Alignment = taRightJustify
        Caption = #1053#1072#1095#1072#1083#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 18
        Top = 60
        Width = 31
        Height = 13
        Alignment = taRightJustify
        Caption = #1050#1086#1085#1077#1094
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object dblcBMonth: TDBComboBoxEh
        Left = 55
        Top = 24
        Width = 83
        Height = 19
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          #1103#1085#1074#1072#1088#1100
          #1092#1077#1074#1088#1072#1083#1100
          #1084#1072#1088#1090
          #1072#1087#1088#1077#1083#1100
          #1084#1072#1081
          #1080#1102#1085#1100
          #1080#1102#1083#1100
          #1072#1074#1075#1091#1089#1090
          #1089#1077#1085#1090#1103#1073#1088#1100
          #1086#1082#1090#1103#1073#1088#1100
          #1085#1086#1103#1073#1088#1100
          #1076#1077#1082#1072#1073#1088#1100)
        KeyItems.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
        ParentFont = False
        TabOrder = 0
        Visible = True
      end
      object dbBYear: TDBNumberEditEh
        Left = 141
        Top = 24
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <
          item
            Style = ebsMinusEh
            Width = 16
            OnClick = dbBYearEditButtons0Click
          end
          item
            Style = ebsPlusEh
            Width = 16
            OnClick = dbBYearEditButtons1Click
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        MaxValue = 2010.000000000000000000
        MinValue = 2005.000000000000000000
        ParentFont = False
        TabOrder = 1
        Value = 2008.000000000000000000
        Visible = True
      end
      object dblcEMonth: TDBComboBoxEh
        Left = 55
        Top = 57
        Width = 83
        Height = 19
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          #1103#1085#1074#1072#1088#1100
          #1092#1077#1074#1088#1072#1083#1100
          #1084#1072#1088#1090
          #1072#1087#1088#1077#1083#1100
          #1084#1072#1081
          #1080#1102#1085#1100
          #1080#1102#1083#1100
          #1072#1074#1075#1091#1089#1090
          #1089#1077#1085#1090#1103#1073#1088#1100
          #1086#1082#1090#1103#1073#1088#1100
          #1085#1086#1103#1073#1088#1100
          #1076#1077#1082#1072#1073#1088#1100)
        KeyItems.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '')
        ParentFont = False
        TabOrder = 2
        Visible = True
      end
      object dbEYear: TDBNumberEditEh
        Left = 141
        Top = 57
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <
          item
            Style = ebsMinusEh
            Width = 16
            OnClick = dbEYearEditButtons0Click
          end
          item
            Style = ebsPlusEh
            Width = 16
            OnClick = dbEYearEditButtons1Click
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        MaxValue = 2010.000000000000000000
        MinValue = 2005.000000000000000000
        ParentFont = False
        TabOrder = 3
        Value = 2008.000000000000000000
        Visible = True
      end
    end
    object Panel2: TPanel
      Left = 222
      Top = 0
      Width = 281
      Height = 91
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object GroupBox3: TGroupBox
        Left = 0
        Top = 46
        Width = 281
        Height = 45
        Align = alBottom
        Caption = ' '#1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1072#1073#1086#1085#1077#1085#1090#1086#1074' '#1074' '#1086#1076#1085#1086#1084' '#1096#1072#1075#1077' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object dbnAbonCount: TDBNumberEditEh
          Left = 83
          Top = 17
          Width = 182
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <
            item
              Style = ebsPlusEh
              OnClick = dbnAbonCountEditButtons0Click
            end
            item
              Style = ebsMinusEh
              OnClick = dbnAbonCountEditButtons1Click
            end>
          Flat = True
          Increment = 5.000000000000000000
          MaxValue = 100.000000000000000000
          MinValue = 1.000000000000000000
          TabOrder = 0
          Value = 10.000000000000000000
          Visible = True
          OnExit = dbnAbonCountExit
        end
      end
      object GroupBox1: TGroupBox
        Left = 132
        Top = 0
        Width = 149
        Height = 46
        Align = alClient
        Caption = ' '#1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1087#1086#1090#1086#1082#1086#1074' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object dbnProcessNum: TDBNumberEditEh
          Left = 36
          Top = 18
          Width = 97
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <
            item
              Style = ebsPlusEh
              OnClick = dbnProcessNumEditButtons0Click
            end
            item
              Style = ebsMinusEh
              OnClick = dbnProcessNumEditButtons1Click
            end>
          Flat = True
          MaxValue = 16.000000000000000000
          MinValue = 1.000000000000000000
          TabOrder = 0
          Value = 1.000000000000000000
          Visible = True
          OnExit = dbnProcessNumExit
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 132
        Height = 46
        Align = alLeft
        Caption = ' '#1044#1072#1090#1072' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1103' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object dbtChargeDate: TDBDateTimeEditEh
          Left = 14
          Top = 17
          Width = 103
          Height = 19
          AlwaysShowBorder = True
          EditButton.Width = 16
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          TabOrder = 0
          Visible = True
        end
      end
    end
  end
  object PPanel: TPanel [3]
    Left = 0
    Top = 91
    Width = 503
    Height = 54
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object PLabel: TLabel
      Left = 155
      Top = 8
      Width = 170
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lbtime: TLabel
      Left = 105
      Top = 32
      Width = 128
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 11
      Top = 32
      Width = 94
      Height = 13
      AutoSize = False
      Caption = #1042#1088#1077#1084#1077#1085#1080' '#1087#1088#1086#1096#1083#1086':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object letime: TLabel
      Left = 354
      Top = 32
      Width = 135
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 251
      Top = 32
      Width = 98
      Height = 13
      AutoSize = False
      Caption = #1042#1088#1077#1084#1077#1085#1080' '#1086#1089#1090#1072#1083#1086#1089#1100':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object ProgressBar: TProgressBar
      Left = 12
      Top = 8
      Width = 481
      Height = 17
      Smooth = True
      Step = 1
      TabOrder = 0
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 304
    Top = 15
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aCalcCharge: TAction
      Caption = #1056#1072#1089#1095#1077#1090
      Hint = #1047#1072#1087#1091#1089#1082' '#1088#1072#1089#1095#1077#1090#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103' '#1079#1072' '#1091#1082#1072#1079#1072#1085#1085#1099#1081' '#1087#1077#1088#1080#1086#1076
      OnExecute = aCalcChargeExecute
    end
    object aSearch: TAction
      Caption = #1055#1086#1080#1089#1082
      Hint = #1053#1072#1081#1090#1080' '#1080' '#1074#1099#1073#1088#1072#1090#1100' '#1072#1073#1086#1085#1077#1085#1090#1072'(-'#1086#1074')'
    end
    object aSaveErrors: TAction
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1086#1096#1080#1073#1082#1080' '#1074' '#1092#1072#1081#1083
      Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1086#1096#1080#1073#1082#1080' '#1074' '#1092#1072#1081#1083
    end
    object aStop: TAction
      Caption = #1057#1090#1086#1087
      Enabled = False
      Hint = #1055#1088#1077#1088#1074#1072#1090#1100' '#1087#1088#1086#1094#1077#1089#1089' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
      ImageIndex = 2
      OnExecute = aStopExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    StorageManager = nil
    StoredProps.Strings = ()
    Left = 12
    Top = 12
  end
  object trCharge: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 68
    Top = 16
  end
  object dsCharge: TpFIBDataSet
    SelectSQL.Strings = (
      'execute block ('
      '  part type of d_int = :part'
      '  /*,'
      '  bdate type of d_pdate = :pbdate,'
      '  edate type of d_pdate = :pedate,'
      '  group_id type of d_int = :pgroup_id*/)'
      'returns ('
      '  min_id type of d_int,'
      '  max_id type of d_int,'
      '  rcount type of d_int'
      '  )'
      'as '
      'declare variable abon_id type of d_int;'
      'declare variable vcount type of d_int;'
      'begin'
      ''
      '  vcount = 0;'
      ''
      '  for select distinct a.id'
      '      from abonents a, dogovors d'
      '      where d.abonent_id = a.id'
      '        and a.client_id >= 0'
      '      order by a.id'
      '      into :abon_id'
      '  do begin'
      '    if (vcount = 0) then'
      '      min_id = abon_id;'
      ''
      '    if (vcount = part) then begin'
      '      max_id = abon_id;'
      '      rcount = vcount;'
      '      vcount = 0;'
      '      suspend;'
      '    end'
      '    else'
      '      vcount = vcount + 1;'
      ''
      '  end'
      ''
      '  if (vcount > 0) then begin'
      '    max_id = abon_id;'
      '    rcount = vcount;'
      '    suspend;'
      '  end'
      'end')
    AllowedUpdateKinds = []
    Transaction = trCharge
    Database = MAINDM.pMainDatabase
    Left = 104
    Top = 16
    object dsChargeMIN_ID: TFIBIntegerField
      FieldName = 'MIN_ID'
    end
    object dsChargeMAX_ID: TFIBIntegerField
      FieldName = 'MAX_ID'
    end
    object dsChargeRCOUNT: TFIBIntegerField
      FieldName = 'RCOUNT'
    end
  end
  object PopupMenu: TPopupMenu
    Left = 275
    Top = 15
    object iDelRecord: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
    end
    object iDelAllRecords: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1079#1072#1087#1080#1089#1080
    end
    object iSaveErrorLog: TMenuItem
      Action = aSaveErrors
      Visible = False
    end
  end
  object qDelErrorList: TpFIBQuery
    Transaction = trClearErrorLog
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'DELETE FROM TMP_CHARGE_ERROR'
      '')
    Left = 104
    Top = 48
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object trClearErrorLog: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 68
    Top = 48
  end
end
